یک تابع برای تبدیل بایرنری به مبنای ??:

function BinToInt(Value: String): Integer;
var
  i,Size: Integer;
begin
  Result:=0;
  Size:=Length(Value);
  for i:=Size downto 1 do
    if Value[i]="1" then Result:=Result+(1 shl (Size-i));
end;

یک تابع برای تبدیل مبنای ?? به مبنای شانزده:

function IntToHex2( n:integer ):string;
  const hex:array [0..15] of char
     =("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F");
begin
  while n<>0 do begin
     result:=hex[ 15 and n ]+result; {=(n mod 15)}
     n:=n shr 4; end; {=n div 16}
end;
 

Speed test